0 GOTO9
1 :" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][209] [209]    [176][192][192][192][201][176][192][192][192][192][174]
2 :" (null)(null)RIGHT$(null)RIGHT$(null)=RIGHT$RIGHT$(null)ORRIGHT$(null)RIGHT$= =(null)=RIGHT$ (null)ORTANRIGHT$(null)/TAN^ORTANEXP
3 :" [221][202][201][171][179][221][221][221][221][221][171][179][171][179][221] [221][221][221][221] [221][221][160][221][221]  [221][221]
4 :" (null)MID$>(null)MID$(null) MID$>>EXPMID$(null)MID$> (null)(null) MID$TAN<(null)CLOSE(null)(null)  (null)(null)
5 :" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]    [221][221][160][221][221]  [221][221]
6 :"                      (null)(null)CLOSE(null)(null)  (null)(null)
7 :"LOOK AT END OF LIST ! [221][173][192][203][221]  [221][221]
8 :"                      /TANTANTAN(null)  /EXP
9 PRINTCHR$(14):PRINTCHR$(8)
10 POKE53281,2:POKE53280,2:INPUT"[147][197]PSON (J/N)";D$
20 P$="[184][184]"
30 DIM A$(100),B$(100),A(100),B(100)
40 PRINTCHR$(147):POKE646,5
50 POKE53281,4 :POKE53280,4
60 PRINTSPC(14);"[144][195][194]-[204][207][199][194][213][195][200]
65 [153][166]13);"(null)ATN(null)(null)(null)ATNRIGHT$ & STR$(null) "
70 [153][166]13);"STOP********SYS****
80 PRINT:PRINTSPC(12);"[144]1.[211]PEICHERN"
90 PRINT:PRINT:PRINTSPC(12);"2.[204]ADEN"
100 PRINT:PRINT:PRINTSPC(12);"[144]3.[204]OESCHEN"
110 PRINT:PRINT:PRINTSPC(12);"4.[211]PEICHERINHALT ZEIGEM
120 [153]:[153]:[153][166]12);"STOP5.(null)PEICHERINHALT DRUCKEN"
130 [153]:[153]:[153][166]12);"6.(null)ISTING SEHEN"
140 [153]:[153]:[153][166]12);"STOP7.VALNDE
150 GETU$:IFU$=""THEN150
160 A=VAL(U$)
170 IFA=1THEN250
180 IFA=2THEN400
190 IFA=3THEN820
200 IFA=4THEN660
210 IFA=5THEN670
220 IFA=7THEN640
230 IFA=6THENPOKE53272,21:PRINT"[147]":LIST
240 GOTO40
250 INPUT"[147] [211]KIP   ";A$(1)
260 INPUT" [206]AME   ";A$(0)
270 INPUT" [209][212][200]    ";A$(2)
280 INPUT" [209][210][199]    ";A$(3)
290 INPUT" [211]/[210]    ";A$(5)
300 INPUT" [196]ATUM  ";A$(4)
310 OPEN1,8,2,+A$(1)+" "+LEFT$(A$(0),1)+".,S,W"
320 PRINT#1,A$(1)
330 PRINT#1,A$(0)
340 PRINT#1,A$(2)
350 PRINT#1,A$(3)
360 PRINT#1,A$(4)
370 PRINT#1,A$(5)
380 CLOSE1
390 GOTO40
400 INPUT"[147][158][215]IE LAUTET DER [211]KIP";B$(0)
410 INPUT"[158][213]ND WIE DER [214]ORNAME";B$(1)
420 IFL=10THENRETURN
430 OPEN1,8,2,+B$(0)+" "+LEFT$(B$(1),1)+".,S,R"
440 INPUT#1,A$(0)
450 INPUT#1,A$(1)
460 INPUT#1,A$(2)
470 INPUT#1,A$(3)
480 INPUT#1,A$(4)
490 INPUT#1,A$(5)
500 CLOSE1
510 PRINT"[147]"
520 IFY=2THENPRINT"[147][211]PEICHERINHALT WIRD GEDRUCKT":OPEN4,4:CMD4
521 PRINT"[147]":PRINTTAB(11) "* [211]AMURAI & [196][212] *"
522 PRINT
525 PRINT"            * [195][194]-[204]OGBUCH *
527 [153]:[153]:[153]:[153]
530 [151]646,9:[153]"STOP(null)KIP   : ";A$(0)
540 [153]"STOP(null)AME   : ";A$(1)
550 [151]646,9:[153]"STOP(null)(null)LEFT$    : ";A$(2)
560 [151]646,9:[153]"STOP(null)(null)CHR$    : ";A$(3)
570 [151]646,9 :[153]"STOP(null)/(null)    : ";A$(5)
580 [153]"STOPSTR$ATUM  : ";A$(4)
590 [139]Y[178]2[167]Y[178]0:[142]
600 [153]"->> (null)ASTE FUER (null)ENUE <<-WAIT"
610 [161]T$:[139]T$[178]""[167]610
620 [139]Y[178]1[167]Y[178]0:[142]
630 [137] 40
640 [153]"LOAD";[166]10);"SYSATNUF (null)IEDERSEHEN"
650 [128]
660 Y[178]1:[141]510:[137]40
670 Y[178]2:[141]510:[152]4:[160]4:[137]40
680 [133]"LOADSYSATNNREDE";R$
690 F$[178][196](A$(5))
700 [129]I[178]1[164][195](F$[170]A$(3)):P$[178]P$[170]"FRE":[130]I
710 [159]4,4:[157]4
720 [153] R$
730 [153]
740 [153] A$(1);" ";A$(0)
750 [153]
760 [153] A$(2)
770 [153]
780 [139]D$[178]"J"[167][141]850:[137]810
790 [153] A$(5);A$(3)
800 [153]P$
810 [152]4:[160]4:P$[178]"FREFRE":[137]40
820 L[178]10:[141]400:L[178]0
830 [159]1,8,15,"S:"[170]B$(0)[170]" "[170][200](B$(1),1)[170]"."
840 [160]1:[137]40
850 [152]4,[199](27)"A"[199](5);[199](27)"-"[199](1);
860 [152]4," "A$(5);A$(3)" "
870 [152]4,[199](27)"-"[199](0):[142]
940 [128]
1000 [143]